home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -serious- / programming / e / powerd / source / examples / talk2boopsi.d < prev   
Text File  |  2000-01-27  |  1KB  |  55 lines
  1. // Talk2Boopsi.d - free translation of Talk2Boopsi.e
  2. // Talk2Boopsi.e - free translation of Talk2Boopsi.c from RKRM libraries
  3.  
  4. MODULE    'intuition/intuition',
  5.             'intuition/gadgetclass',
  6.             'intuition/icclass'
  7.  
  8. PROC main()
  9.     DEF    w:PTR TO Window,
  10.             prop:PTR TO Gadget,
  11.             integer:PTR TO Gadget
  12.  
  13.     IF w:=OpenWindowTags(NIL,
  14.             WA_Flags,$E,
  15.             WA_IDCMP,$200,
  16.             WA_Width,120,
  17.             WA_Height,150,
  18.             TAG_END)
  19.         IF prop:=NewObject(NIL,'propgclass',
  20.                 GA_ID,1,
  21.                 GA_Top,w.BorderTop+5,
  22.                 GA_Left,w.BorderLeft+5,
  23.                 GA_Width,10,
  24.                 GA_Height,80,
  25.                 ICA_Map,[PGA_Top,STRINGA_LongVal,0],
  26.                 PGA_Total,100,
  27.                 PGA_Top,25,
  28.                 PGA_Visible,10,
  29.                 PGA_NewLook,TRUE,
  30.                 TAG_END)
  31.             IF integer:=NewObject(NIL,'strgclass',
  32.                     GA_ID,2,
  33.                     GA_Top,w.BorderTop+5,
  34.                     GA_Left,w.BorderLeft+30,
  35.                     GA_Width,40,
  36.                     GA_Height,18,
  37.                     ICA_Map,[STRINGA_LongVal,PGA_Top,0],
  38.                     ICA_Target,prop,
  39.                     GA_Previous,prop,
  40.                     STRINGA_LongVal,25,
  41.                     STRINGA_MaxChars,3,
  42.                     TAG_END)
  43.                 SetGadgetAttrsA(prop,w,NIL,[ICA_Target,integer,TAG_END])
  44.                 AddGList(w,prop,-1,-1,NIL)
  45.                 RefreshGList(prop,w,NIL,-1)
  46.                 WaitPort(w.UserPort)
  47.                 RemoveGList(w,prop,-1)
  48.                 DisposeObject(integer)
  49.             ENDIF
  50.             DisposeObject(prop)
  51.         ENDIF
  52.         CloseWindow(w)
  53.     ENDIF
  54. ENDPROC
  55.